home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 41
/
64er_Magazin_Sonderheft_41_19xx_Markt__Technik_de.d64
/
anleitung cent.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
7KB
|
201 lines
0 print"[147]",chr$(14)
10 print"[195][197][206][212]-[211][205][207][206]-[203]ernel
20 [153]
30 [153]"- str$as (NULL)uper-peeketriebssystem jetzt mit
40 print" [195]entronics-[211]chnittstelle
50 [153]
60 [153]" lenval(NULL)(NULL)-(NULL)(NULL)(NULL)(NULL)-(NULL)ernel entspricht in allen
70 print"[198]unktionen dem bereits vorgestellten
80 [153]"val(NULL)-(NULL)(NULL)(NULL)(NULL)-(NULL)ernel. str$ie peekedienung und auch
90 print"der [197]inbau entsprechen den dortigen
100 [153]"atnngaben. (NULL)icht mehr vorhanden sind die
110 print"[210][211]-232-[210]outinen, deren [208]latz fuer die
120 [153]"lenentronics-(NULL)chnittstelle gebraucht
130 print"wurde.
150 [153]" str$as erklaerte (NULL)iel war, eine (NULL)chnitt-
160 print"stelle im [203]ernel unterzubringen, die
170 [153]"es ermoeglicht, einen str$rucker mit (NULL)a-
180 print"rallel-[211]chnittstelle so am [213]ser-[208]ort
190 [153]"zu betreiben, dass man (abgesehen von
200 print"den meist besseren [209]ualitaeten des
210 [153]"str$ruckers) kaum mehr merkt, dass es
220 print"sich nicht um einen [195]ommodore-kompa-
230 [153]"tiblen str$rucker handelt.
240 print" [212]aste
250 [161]a$:[139]a$[178]""[167]250
260 [153]"load
270 print" [211]o wird nur ein einfaches [214]erbindungs-
280 [153]"kabel (kein right$nterface!) benoetigt, und
290 print"viele [211]teuerprobleme, die mit [201]nter-
300 [153]"faces entstehen, entfallen.
310 print
320 print" [204]eider war es im vorhandenen [211]peicher-
330 [153]"raum nicht moeglich, saemtliche ascunk-
340 print"tionen, also auch die [218]ahlenformatie-
350 [153]"rung etc. eines lenommodore-str$ruckers un-
360 print"terzubringen. [193]lle oft gebrauchten
370 [153]"str$ruckerfunktionen werden jedoch orgi-
380 print"nalgetreu an den [208]arallel-[196]rucker wei-
390 [153]"tergegeben. (NULL)elbst left$ardcopy-(NULL)outinen,
400 print"die einen [205][208][211]801/803 erwarten, laufen
410 [153]"einwandfrei mit dem lenval(NULL)(NULL)-(NULL)(NULL)(NULL)(NULL)-(NULL)ernel.
420 print
430 print" [198]olgende [196]ruckerfunktionen werden
440 [153]"angepasst:
450 print
460 print"- [196]er [196]rucker wird ueber [199]eraeteadres-
470 [153]" se #4 angesprochen.
480 print" [212]aste
490 [161]a$:[139]a$[178]""[167]490
500 [153]"load";
510 [153]"- vals wird automatisch valxtra-(NULL)ine-asceed
520 print" ausgegeben, die [193]uto-[204][198]-[198]unktion
530 [153]" des str$ruckers muss also ausgeschaltet
540 print" bleiben ([207]rginalzustand!).
550 [153]"- str$er str$rucker wird beim ersten atnnspre-
560 print" chen automatisch auf den deutschen
570 [153]" (NULL)eichensatz mit (NULL)mlauten umgeschaltet.
580 print"[145]- [206]ormalerweise wird [199]ross/[199]rafik bzw.
590 [153]" chr$ross-(NULL)leinschreibung so gedruckt,
600 print" wie der [194]ildschirm sie anzeigt.
610 [153]" (NULL)enn kein (NULL)riginal-(NULL)eichensatz auf
620 print" dem [194]ildschirm ist, wird [199]ross/[203]lein-
630 [153]" schreibung benutzt ((NULL)iehe auch (NULL)m-
640 print" schaltung per [211]ekundaeradresse).
650 [153]"- atnlle chr$rafikzeichen des len 64 werden
660 print" gedruckt. [204]istings sehen also aus wie
670 [153]" auf dem peekildschirm.
680 print
690 print" [198]olgende [211]teuerzeichen und -[198]unktionen
700 [153]"werden verarbeitet:
710 print
720 print"- [211]ekundaeradresse 10[146] [196]rucker-[210]eset
730 [153]:[153]" (NULL)aste
740 geta$:ifa$=""then740
750 print"[147]";
760 print"- [211]ekundaeradresse 6[146] [218]eilen-[193]bstand
770 [153]" einstellen (in /144'-(NULL)chritten, wie
780 print" bei [195]ommodore-[196]ruckern)
790 [153]"- lenleft$(NULL)$(1) und lenleft$(NULL)$(14)wait schalten auf
800 print" erweiterte [218]eichen
810 [153]"- lenleft$(NULL)$(129) und lenleft$(NULL)$(15)wait schalten er-
820 print" weiterte [218]eichen aus
830 [153]"- lenleft$(NULL)$(8)wait schaltet auf 7-(NULL)unkt-chr$rafik-
840 print" [205]odus. [196]er [218]eilenabstand wird dabei
850 [153]" angepasst (21/216')
860 print"- [195][200][210]$(15)[146] schaltet [199]rafik aus
870 [153]"- lenleft$(NULL)$(17)wait schaltet unbedingt auf
880 print" [199]ross/[203]leinschreibung
890 [153]"- lenleft$(NULL)$(145)wait schaltet unbedingt auf
900 print" [199]ross/[199]rafik-[205]odus
910 [153]"- lenleft$(NULL)$(141)wait bewirkt (NULL)agenruecklauf
920 print" ohne [218]eilenvorschub
930 [153]"- lenleft$(NULL)$(34)wait schaltet auf (NULL)uote-(NULL)odus
940 print" (weitere [211]teuerzeichen werden als [199]ra-
950 [153]"on fikzeichen gedruckt)
960 print"- [195][200][210]$(18)[146] schaltet auf [210]everse
970 [153]"- lenleft$(NULL)$(146)wait schaltet (NULL)everse aus
980 print
990 print" [212]aste
1000 [161]a$:[139]a$[178]""[167]1000
1010 [153]"load";
1020 [153]" atnndere (NULL)teuerzeichen werden als chr$rafik-
1030 print"[145]zeichen gedruckt.
1040 [153]
1050 [153]" (NULL)it der (NULL)peicherstelle 150wait koennen
1060 print"noch weitere [198]unktionen gesteuert
1070 [153]"werden:
1080 print
1090 print"[208][207][203][197] 150,128[146] bewirkt, dass [211]ekundaer-
1100 [153]"adresse 7 als (NULL)mschaltzeichen fuer
1110 print"[199]ross/[203]leinschreibung interpretiert
1120 [153]"wird. (NULL)hne (NULL)ekundaeradresse oder mit
1130 print"[211][193]=0 wird [199]ross/[199]rafik gedruckt. [194]ei
1140 [153]"anderen (NULL)atn wird gemaess peekildschirm
1150 print"gedruckt.
1160 [153]"(NULL)(NULL)(NULL)val 150,64wait alle (NULL)eichen werden direkt
1170 print"ohne irgendwelche [215]andlung an den
1180 [153]"str$rucker ausgegeben. right$n diesem (NULL)odus
1190 print"entfaellt auch das sonst uebliche [197]xtra-
1200 [153]"on(NULL)ine-asceed.
1210 print"[208][207][203][197][160]150,1[146] der [196]rucker wird nicht auf
1220 [153]"deutschen (NULL)eichensatz umgeschaltet.
1230 print
1240 print"[196]urch [193]ddition koennen die [215]erte auch
1250 [153]"gemischt werden!
1260 print" [212]aste";
1270 geta$:ifa$=""then1270
1280 print"[147][146]";
1290 print" [196]ie [193]usgabe-[210]outinen fuer den [208]arallel-
1300 [153]"onstr$rucker sind so in die right$vallen-peekus-(NULL)outi-
1310 print"nen eingebunden, dass auch praktisch
1320 [153]"alle (NULL)aschinenprogramme keine (NULL)otiz
1330 print"davon nehmen, wenn kein serieller
1340 [153]"str$rucker angeschlossen ist. peekeim peeketrieb
1350 print"eines seriellen [196]ruckers mit diesem
1360 [153]"(NULL)ystem ist allerdings zu beachten, dass
1370 print"es ca. 2 [211]ekunden dauert, bis der
1380 [153]"str$rucker beim ersten (NULL)effnen reagiert,
1390 print"da zuerst das [214]orhandensein eines
1400 [153]"(NULL)arallel-str$ruckers abgefragt wird.
1420 print" [213]nter [197]insatz aller [211]peicherreserven
1430 [153]"(str$ie (NULL)eldung (NULL)valatn(NULL)lenleft$right$(NULL)chr$ asc(NULL)(NULL) beim (NULL)aden
1440 print"fiel zum [207]pfer) gelang es, noch ein
1450 [153]"weiteres asceature einzubauen:
1460 print" [194]ei [196]ruck auf <[195][212][210][204]+[198]3> erscheint auf
1470 [153]"dem peekildschirm :(NULL)right$(NULL)(NULL)wait und der blin-
1480 print"kende [195]ursor. [196]ieser [194]efehl ersetzt das
1490 [153]"leidige (NULL)(NULL)val(NULL)1,4:len(NULL)str$1:(NULL)right$(NULL)(NULL)wait. (NULL)ach dem
1500 print"[204]isten wird das [196]ruckerfile wieder ein-
1510 [153]"wandfrei geschlossen, sodass auch das
1520 print"[208][210][201][206][212]#1:[195][204][207][211][197]1[146] entfaellt.
1530 [153]" (NULL)astewait";
1540 [161]a$:[139]a$[178]""[167]1540
1550 [153]"load
1560 print" [198]uer alle, die sich das [214]erbindungs-
1570 [153]"kabel (NULL)ser-(NULL)ort - lenentronics nicht kau-
1580 print"fen wollen, die [193]nschlussbelegung:
1590 [153]
1600 [153]"(NULL)ser-(NULL)ort lenentronics
1610 print
1620 print" [193] 16
1630 [153]" peek 11
1640 print" [195] 2
1650 [153]" str$ 3
1660 print" [197] 4
1670 [153]" asc 5
1680 print" [200] 6
1690 [153]" right$ 7
1700 print" [203] 8
1710 [153]" (NULL) 9
1720 print" [205] 1
1730 [153]" (NULL) wie atn
1740 print
1750 print" [194]esitzer eines nicht [197][211][195]/p-kompatiblen
1760 [153]"str$ruckers (z.peek. (NULL)elchers len(NULL) 80 right$right$) mues-
1770 print"sen vor dem [194]rennen folgende [193]enderungen
1780 [153]"onam (NULL)rogramm vornehmen:
1790 print" [212]aste[146]";
1800 geta$:ifa$=""then1800
1810 print"[147]"
1820 print" [211]peicherstelle neuer [215]ert
1830 [153]"(ab val(NULL)(NULL)(NULL)(NULL)-(NULL)tart)
1840 print"---------------- ----------
1850 [153]" $30atn9 $4peek
1860 print" $30[193][196] $[197][193]
1870 [153]" $30atnval $valatn
1880 print" $30[193][198] $[197][193]
1890 [153]" $30peek0 $valatn
1900 print"[160] $30[194]1 $[197][193]
1910 [153]
1920 [153]" str$adurch werden chr$rafik-(NULL)eichen im
1930 print"[211]ingle-[196]ensity-[205]odus ausgegeben
1940 [153]"(statt len(NULL)(NULL)).
1950 print" [198]uer den erwaehnten [205]elchers-[196]rucker
1960 [153]"muss ausserdem der (NULL)ert fuer das chr$rafik-
1970 print"[145][204]ine-[198]eed geaendert werden:
1980 [153]
1990 [153]" $2asc71 $13
2000 print" [212]aste
2010 [161]a$:[139]a$[178]""[167]2010